(error): Fix logic in call to xmalloc/xrealloc.

diff --git a/src/eval.c b/src/eval.c
index 0643655f0f32784ed3bab3fc5f7d8389c4e533c3..8aadc0b0a9ad842eb1c1214361601985fc7d10e7 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -1331,7 +1331,11 @@ error (m, a1, a2, a3)
       size *= 2;
       if (allocated)
        buffer = (char *) xrealloc (buffer, size);
-      buffer = (char *) xmalloc (size);
+      else
+       {
+         buffer = (char *) xmalloc (size);
+         allocated = 1;
+       }
     }
 
   string = build_string (buf);